home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Travel to Space
/
Travel to Space.iso
/
dos_prog
/
astronmy
/
mercury
/
complex.eka
< prev
next >
Wrap
Text File
|
1990-11-09
|
315b
|
11 lines
; Find a complex root to a polynomial.
; The desired root is
; x = -0.4196433776 +0.6062907292i
; The starting value -.5+.5i is used. Other starting values
; might result in one of the other two roots.
; See POLY.EKA for another way to solve polynomials.
COMPLEX
x^3 - x^2 - x - 1 = 0
x := -.5 + .5i